D_index_load_check.asp 落叶冰点万能企业网站内容管理系统 V9.1 - ASP源码程序

www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_index_load_check.asp
    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<htmL>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />




<body bgcolor="#000000"  marginheight="0" marginwidth="0" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="0">



<span id="ab12"><font color=#ffffff>检测中...</font></span>



<%
' 检测组件变量
dim isobj,VerObj,TestObj



'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then		'感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub



  ObjTest(fssoo_nd_var_str_x_customx)



if not isobj then



sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"

%>





<script language="javascript">

setTimeout("document.all.ab12.innerHTML='<font color=#ffffff><%=sss1%></font>';",300);

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");


</script>






<%
response.end



else

sss1="检测中:支持FSO......"
%>




<script language="javascript">


function CheckBrowser2() {
  var app=navigator.appName;
  var verStr=navigator.appVersion;
  if(app.indexOf('Netscape') != -1) {
    alert('提示：\n    你使用的不是IE浏览器，可能会导致严重错误。建议您使用 IE6.0 或以上版本。');

alert('请您使用 IE6.0 或以上版本，不然可能会导致严重错误');


  } else if(app.indexOf('Microsoft') != -1) {
    if (verStr.indexOf('MSIE 3.0')!=-1 || verStr.indexOf('MSIE 4.0') != -1 || verStr.indexOf('MSIE 5.0') != -1 || verStr.indexOf('MSIE 5.1') != -1)
      alert('JSA友情提示：\n    您的IE浏览器版本太低，可能会导致严重错误。建议您使用 IE6.0 或以上版本。');
  }
}

CheckBrowser2();

//setTimeout("top.location='D_admin_index.asp';",6000);

setTimeout("document.all.ab12.innerHTML='<font color=#ffffff><%=sss1%></font>';",1300);


</script>



<%
end if
%>





          <!---------后台启动时的 背景音乐-------------->

<object classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6" id="WindowsMediaPlayer1" width="0" height="0" loop=99> 
<param name="URL" value="IMG/newdosft.wav"> 
<param name="rate" value="1"> 
<param name="balance" value="0"> 
<param name="currentPosition" value="0"> 
<param name="defaultFrame" value> 
<param name="playCount" value="1"> 
<param name="autoStart" value="-1"> 
<param name="currentMarker" value="0"> 
<param name="invokeURLs" value="-1"> 
<param name="baseURL" value> 
<param name="volume" value="90"> 
<param name="mute" value="0"> 
<param name="uiMode" value="full"> 
<param name="stretchToFit" value="0"> 
<param name="windowlessVideo" value="0"> 
<param name="enabled" value="-1"> 
<param name="enableContextMenu" value="-1"> 
<param name="fullScreen" value="0"> 
<param name="SAMIStyle" value> 
<param name="SAMILang" value> 
<param name="SAMIFilename" value> 
<param name="captioningID" value> 
<param name="enableErrorDialogs" value="0"> 
<param name="_cx" value="6482"> 
<param name="_cy" value="6350"></object>
	
	
          <!---------后台启动时的 背景音乐-------------->












</body>

</html>